home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / gus0025.zip / GUS206.INF < prev    next >
INI File  |  1993-05-19  |  43KB  |  1,210 lines
  1. ;;===========================================================================
  2. ;;            Title:     Gravis UltraSound Install
  3. ;;            Version:   2.06
  4. ;;            Date:      04/02/93
  5. ;;
  6. ;; Revision History
  7. ;; 03/25/93 - PLAYMIDI & PLAYFILE - Fixes problem with user manually
  8. ;;                                  entering Frequency
  9. ;; 04/01/93 - Don't allow Install of Windows on a 286
  10. ;; 04/05/93 - Updated GravUtil from 08/92 to 10/92 (1.4B to 2.0)
  11. ;; 04/07/93 - Redid Windows Install to check for more things that could
  12. ;;              screw it up.  Including 286, Not enough files, prompt user
  13. ;;              for Windows directory and more.
  14. ;;            Check disk space required after we know what options the user
  15. ;;              wants to install not before
  16. ;; 04/09/93 - Note to user that STACKER, Double Space etc... won't return
  17. ;;              correct hard disk space
  18. ;;            More verification before attempting Windows setup.  Including
  19. ;;              FILES= at least 20
  20. ;;            Don't worry about the users BUFFERS settings.  Just worry about
  21. ;;              FILES
  22. ;; 04/22/93 - Bunch more stuff <grin>
  23. ;; 04/27/93 - Let Everyone Here Try the New Install
  24. ;;            - If FULL Install not properly install SETGUS stuff
  25. ;;            - ReArranged Main Menu - Less clutter
  26. ;; 04/29/93 - Ok, tons of feedback.
  27. ;;            - Fixed asking user twice for directory when full install
  28. ;; 05/05/93 - Added opening screen
  29. ;; 05/07/93 - If a user is upgrading from an older version of the Windows
  30. ;;            drivers tell them that they should remove these drivers before
  31. ;;            proceeding.  Otherwise, they'll get an INCORRECT PATCH VERSION
  32. ;;            error message during there Windows install
  33. ;; 05/12/93 - Tidy up the GRAVIS opening screen.  Gee's, trying to get
  34. ;;            something to look good strictly with extended ASCII is a PAIN!
  35. ;;          - Change the Advanced Install to display various msgs if the user
  36. ;;            trys to install things that may not work correctly
  37. ;; 05/13/93 - Make Install Smart Enough to figure out if this is the full
  38. ;;            (PowerChords/MidiSoft) or the partial one
  39. ;; 05/14/93 - If User has Ultrasnd enviro vars at the end of his/her autoexec
  40. ;;            bat and this is a first time install move those lines to the
  41. ;;            top of his/her autoexec.bat
  42. ;; 05/19/93 - VERY Last Minute Change.  Remove Jungly Demo.  As I'm typing
  43. ;;            this the truck is waiting at the door to take this set of disks
  44. ;;            to the disk duplication place in the states.
  45. ;;
  46. ;;===========================================================================
  47.  
  48. ;;  -----------------
  49. ;;    What Variables Are Used For
  50. ;;  -----------------
  51. ;;   [Dir1]     Store Windows Directory
  52. ;;   [Dir2]     Install From Drive Letter
  53. ;;   [Dir3]     Where README is Located
  54. ;;   [Dir4]     <UNUSED>
  55. ;;   [Dir5]     <UNUSED>
  56. ;;   [Dir6]     <UNUSED>
  57. ;;   [Dir7]     <UNUSED>
  58. ;;   [Dir8]     <UNUSED>
  59. ;;   [Dir9]     <UNUSED>
  60.  
  61. ;;   [Number1]  Min. number of file handles
  62. ;;   [Number2]  <UNUSED>
  63. ;;   [Number3]  Actual byte size of users install
  64. ;;   [Number4]  Users actual file handles
  65. ;;   [Number5]  <UNUSED>
  66. ;;   [Number6]  <UNUSED>
  67. ;;   [Number7]  Used to move GUS Enviro Vars.
  68. ;;   [Number8]  Used as temp storage for Enviro Vars.
  69. ;;   [Number9]  <UNUSED>
  70.  
  71. ;;   [String1]  Filename to Restore
  72. ;;   [String2]  UltraSND Environment Variable
  73. ;;   [String3]  UltraDIR Environment Variable
  74. ;;   [String4]  GUSMOD Environment Variable
  75. ;;   [String5]  Get SYSTEM.INI SHELL= Statement
  76. ;;   [String6]  Used to Determine DIR1
  77. ;;   [String7]  Verify Environment Variables
  78. ;;   [String8]  Temp string used to move enviros
  79. ;;   [String9]  <UNUSED>
  80.  
  81. ;;   [YesorNo1] No UltraSound Setup Software Installed.  Install It?
  82. ;;   [YesorNo2] Disable Function Keys ON/OFF
  83. ;;   [YesorNo3] Modify FILES= for Windows Setup
  84. ;;   [YesorNo4] Directory Exist.  Overwrite files?
  85. ;;   [YesorNo5] Flag - First FULL Install
  86. ;;   [YesorNo6] Full Version or Partial (with or without MidiSoft/Power Chords)
  87. ;;   [YesorNo7] <UNUSED>
  88. ;;   [YesorNo8] <UNUSED>
  89. ;;   [YesorNo9] <UNUSED>
  90.  
  91. ;;   [Point1]   <UNUSED>
  92. ;;   [Point2]   Exit
  93. ;;   [Point3]   Check Windows directory
  94. ;;   [Point4]   Determine Install Directory
  95. ;;   [Point5]   Skip Windows Checking
  96. ;;   [Point6]   Skip Single File Install
  97. ;;   [Point7]   Patch for InstallIT
  98. ;;   [Point8]   Patch for InstallIT
  99. ;;   [Point9]   <UNUSED>
  100.  
  101. ;;======================================
  102. ;; Author:   John Smith
  103. ;; Date:     04/06/93
  104. ;; Purpose:  Define Variables
  105. ;;======================================
  106. DefineVariables
  107.  
  108. Logical [GUSSetup]   := NoCharacter              ;; Do we need to run GUS Setup?
  109. Logical [WinSetup]   := NoCharacter              ;; Do we need to run Windows Setup?
  110.  
  111. Logical [InstSBOS]   := NoCharacter
  112. Logical [InstDEMO]   := NoCharacter
  113. Logical [InstUTIL]   := NoCharacter
  114. Logical [InstWIN]    := NoCharacter
  115. Logical [InstALL]    := NoCharacter
  116. Logical [InstGUSMOD] := NoCharacter
  117. Logical [InstPAT]    := NoCharacter
  118.  
  119. Logical [SETGUS]     := NoCharacter              ;; Did we run SETGUS?
  120. Logical [Flag1]      := NoCharacter              ;; Flag if Second pass on Install ALL
  121.                                                  ;;  so that we don't ask the user for
  122.                                                  ;;  the directory twice
  123.  
  124. SDF Text    [MinimumOSVersion]
  125. SDF Number  [MinimumSystemMemoryRequiredPresent]
  126. SDF Logical [AllowCGA]
  127. SDF Logical [AllowMDA]
  128. SDF Logical [Allow808x]
  129. SDF Logical [Allow80286]
  130. SDF Text    [NetWorkInstallation]
  131.  
  132. Logical     [InsufficientSystem]       := NoCharacter
  133. Logical     [CompatibilityNoticeGiven] := NoCharacter
  134.  
  135. Text        [DisplayAdapterSummary]
  136. Text        [CPUTypeSummary]
  137. Text        [NetworkActive]
  138. Text        [MathCoprocessorStatus]
  139. Text        [InstallationDriveSummary]
  140. Text        [OSVersionSummary]
  141. Text        [SystemMemorySummary]
  142. Text        [EMSPresent]
  143. EndDefineVariables
  144.  
  145. [Dir1] := [WindowsDirectory]
  146. [Dir2] := [InstallFromDrive]:
  147. [Dir3] := InstalitDirectory
  148.  
  149. [Number1] := 20                                  ;; Min. Files
  150.  
  151. Do ModifyStuff                                   ;; TEST!!!****!!!*!*!*!*!
  152.  
  153. Do DetermineULTRADIR
  154.  
  155. If FileIsInLibrary SESSION.EXE                   ;; Check to see if Partial
  156.     [YesorNo6] := YesCharacter                   ;; or full version (with
  157. Else                                             ;; or without Midi/Power)
  158.     [YesorNo6] := NoCharacter
  159. EndIf
  160.  
  161. ;;======================================
  162. ;; Author:   Forte
  163. ;; Date:     03/xx/93
  164. ;; Purpose:  What to Show user if they have a bad disk
  165. ;;======================================
  166. SetSupportInformation
  167.   You may have a corrupted disk. Please try installing again.  If
  168.   unsuccessful, please call Advanced Gravis Tech Support for a
  169.   replacement disk or download the disk from our BBS.
  170.  
  171.   .cTechnical Support (9am-4pm PST)......1-604-431-1807
  172.   .cBulletin Board System (V32bis N81)...1-604-431-5927
  173. EndSetSupportInformation
  174.  
  175. ;;======================================
  176. ;; Author:   John Smith
  177. ;; Date:     04/06/93
  178. ;; Purpose:  Show Title Screen
  179. ;;======================================
  180.  
  181. Do OpeningScreen                                 ;; Call the Opening Screen
  182.  
  183. ClearScreen
  184. SetBackgroundCharTo B0                           ;; Set Bkgrd to Blue/White
  185.  
  186. ChangeDirectoryTo [Dir2]                         ;; Goto Install From Drive
  187.  
  188. LetButton <F1> Do ShowHelp
  189. LetButton <F2> Do GetReadme
  190. LetButton <F3> Do ShowSystemSummary
  191.  
  192. :MAIN
  193. [YesorNo5]   := NoCharacter                      ;; First FULL Install?
  194. [YesorNo2]   := YesCharacter                     ;; Enable Function Keys
  195.  
  196. [GUSSetup]   := NoCharacter                      ;; Init All Vars to NO
  197. [WinSetup]   := NoCharacter
  198. [SETGUS]     := NoCharacter
  199. [InstSBOS]   := NoCharacter
  200. [InstDEMO]   := NoCharacter
  201. [InstUTIL]   := NoCharacter
  202. [InstWIN]    := NoCharacter
  203. [InstALL]    := NoCharacter
  204. [InstGUSMOD] := NoCharacter
  205. [InstPAT]    := NoCharacter
  206.  
  207. Do TitleScreen
  208.  
  209. QueAllFiles                                      ;; Determine Total Size
  210. [Number3] := QueSize                             ;; of Install.  Handy cause
  211. UnQueAllFiles                                    ;; independate of version
  212.  
  213. TextBox WhiteOnBlue @xy(Center,3)
  214.     A complete install requires [Number3] bytes of hard disk space
  215.     NOTE: Programs such as STACKER, and DOUBLE SPACE may not
  216.     .caccurately report the true drive space remaining.
  217. EndTextBox
  218.  
  219. GetMenuChoice WhiteOnLightBlue @xy(Center,9) Highlight 1 UseHeader "Installation Main Menu"
  220. Install All UltraSound Software
  221. Advanced Custom Install
  222.         ; Selectively install individual modules or files
  223. Exit
  224.         ; Exit the Install and return to DOS
  225. EndGetMenuChoice
  226.  
  227. [YesorNo2] := NoCharacter                        ;; Hide Function Keys
  228.  
  229. InCase Choice is
  230.         =1:
  231.             ClearScreen
  232.             Do TitleScreen
  233.  
  234.             [InstALL]    := YesCharacter
  235.             [GUSSetup]   := YesCharacter
  236.             [String2] := EnvironmentStringFor ULTRASND
  237.             If [String2] = BlankString                       ;; Does it Exist?
  238.                 [YesorNo5] := YesCharacter                   ;; Yes - First FULL Install
  239.                 Dialog PressAnyKey WhiteOnCyan
  240.                     This appears to be the first time you have installed the
  241.                     UltraSound card in this computer.  Before we proceed to copy
  242.                     all [Number3] bytes to your hard disk we will verify that your
  243.                     UltraSound card is operating correctly.  To do this we will run
  244.                     the UltraSound setup and diagnostics program first.  Once this
  245.                     is complete we will proceed with the remainder of the install.
  246.                 EndDialog
  247.                 Do CheckGUSSetup
  248.                 PopUp We will now proceed with the remainder of your install.
  249.             EndIf
  250.             UnQueAllFiles
  251.             QueAllFiles
  252.             [WinSetup]   := YesCharacter
  253.             [InstSBOS]   := YesCharacter
  254.             [InstDEMO]   := YesCharacter
  255.             [InstUTIL]   := YesCharacter
  256.             [InstWIN]    := YesCharacter
  257.             [InstGUSMOD] := YesCharacter
  258.             [InstPAT]    := YesCharacter
  259.             Goto [Point7]
  260.         =2: Do AdvancedInstall
  261.             Goto MAIN
  262.         =3: UnQueAllFiles
  263.             Do Bye
  264. EndInCase
  265.  
  266. [Point7]                                         ;; InstallIT has a bug in it.
  267.                                                  ;; This is a patch to fix it.
  268.                                                  ;; InstalIt doesn't properly
  269.                                                  ;; handle the above case statement
  270.                                                  ;; in all circumstances and sometimes
  271.                                                  ;; executes the instructions in the
  272.                                                  ;; next CASE.  Thereby screwing up
  273.                                                  ;; the Que.  WHich is why I
  274.                                                  ;; do an UNQUEALL and a GOTO POINT7
  275.  
  276. ClearScreen
  277.  
  278. Do TitleScreen
  279.  
  280. If [WinSetup] = YesCharacter
  281.     Do CheckWindows                              ;; Check if Auto Windows Install OK
  282. EndIf
  283.  
  284. Do CopyQueFiles                                  ;; Copy Requested File Groups
  285.  
  286. Do ModifyStuff
  287.  
  288. If [InstALL] = NoCharacter
  289.     Do CheckGUSSetup
  290. EndIf
  291. Do CheckWinSetup
  292.  
  293. If [InstALL] = YesCharacter
  294.     SetBackgroundCharTo 2
  295.     Beep
  296.     Dialog PressAnyKey WhiteOnBlue UseHeader "Thank You for Choosing UltraSound" 60
  297.         This completes your installation process.
  298.  
  299.         You may wish to try the following demos after this install:
  300.  
  301.         .l MODDEMO  - 4 track digital music using UltraMOD
  302.         .l GMODDEMO - Same as MODDEMO except using GUS MOD by Renaissance
  303.         .l MIDIDEMO - General MIDI Demo
  304.         .l MIDI1MB  - MIDI Demo requiring 1Mb of DRAM on GUS for proper playback
  305.         .l FLIDEMO  - Sample of ULTRAFLI.  A FLI and SND player
  306.  
  307.         .c********** WE WILL NOW REBOOT YOUR COMPUTER **********
  308.     EndDialog
  309.  
  310.     ChangeDirectoryTo [Dir3]                     ;; Find to Installed Directory
  311.     DosCommand Reboot.com
  312. EndIf
  313.  
  314. Goto MAIN                                        ;; Goto Main Menu
  315.  
  316. ;;===========================================================================
  317. ;;
  318. ;;                           Start of Procedures
  319. ;;
  320. ;;===========================================================================
  321.  
  322. ;;======================================
  323. ;; Author:   John Smith
  324. ;; Date:     04/09/93
  325. ;; Purpose:  Do UltraSound SETUP
  326. ;;======================================
  327. Procedure CheckGUSSetup
  328.     If [GUSSetup] = YesCharacter
  329.         If FileExists [String3]\SETGUS.EXE
  330.             Dialog WhiteOnRed
  331.                   We will now run your UltraSound setup.  You must
  332.                   run this program to insure a proper installation.
  333.             EndDialog
  334.  
  335.             ;; Change to installation directory and Run UltraSound Setup Program
  336.             ChangeDirectoryTo [String3]
  337.             Run SetGUS -i Swapout NoPrompt
  338.         Else
  339.             If [InstALL] = NoCharacter
  340.                 Dialog [YesOrNo1] WhiteOnRed @xy(Center,Center)
  341.                     UltraSound install was unable to locate your UltraSound
  342.                     setup files. Would you like us to re-install them?
  343.                 EndDialog
  344.             Else
  345.                [YesOrNo1] := YesCharacter
  346.             EndIf
  347.             If [YesOrNo1] = Y
  348.                 [SETGUS] := YesCharacter         ;; Flag that this is a SETGUS Install
  349.                 QueFileGroup 1                   ;; Copy files and determine where to install
  350.                 Do CopyQueFiles                  ;; Now that we have copied SETGUS we shouldn't ask
  351.                 [Flag1] := YesCharacter          ;;  the user where to install the stuff again
  352.  
  353.                 Do CheckGUSSetup
  354.             EndIf
  355.         EndIf
  356.     EndIf
  357. EndProcedure
  358.  
  359. ;;======================================
  360. ;; Author:   John Smith
  361. ;; Date:     04/07/93
  362. ;; Purpose:  Do Actuall Auto Windows Setup if Necessary
  363. ;;======================================
  364. Procedure CheckWinSetup
  365.     If [WinSetup] = YesCharacter
  366.       If XMSMemoryAvailable <> 0
  367.         If [Dir1] <> BlankString
  368.             PopUp UltraSound Install will now proceed with Windows Setup
  369.             ;;Perform the windows setup installation if user selected it
  370.  
  371.             If FileExists [Dir1]\ULTRASND.DRV
  372.                 CopyFiles from [Dir3]\WINDOWS to [Dir1] Quietly
  373.                     ULTRASND.DRV
  374.                 EndCopyFiles
  375.             EndIf
  376.             If FileExists [Dir1]\ULTMPORT.DRV
  377.                 CopyFiles from [Dir3]\WINDOWS to [Dir1] Quietly
  378.                     ULTMPORT.DRV
  379.                 EndCopyFiles
  380.             EndIf
  381.             If FileExists [Dir1]\GRVSULTR.386
  382.                 CopyFiles from [Dir3]\WINDOWS to [Dir1] Quietly
  383.                     GRVSULTR.386
  384.                 EndCopyFiles
  385.             EndIf
  386.             If FileExists [Dir1]\SYSTEM\ULTRASND.DRV
  387.                 CopyFiles from [Dir3]\WINDOWS to [Dir1]\SYSTEM Quietly
  388.                     ULTRASND.DRV
  389.                 EndCopyFiles
  390.             EndIf
  391.             If FileExists [Dir1]\SYSTEM\ULTMPORT.DRV
  392.                 CopyFiles from [Dir3]\WINDOWS to [Dir1]\SYSTEM Quietly
  393.                     ULTMPORT.DRV
  394.                 EndCopyFiles
  395.             EndIf
  396.             If FileExists [Dir1]\SYSTEM\GRVSULTR.386
  397.                 CopyFiles from [Dir3]\WINDOWS to [Dir1]\SYSTEM Quietly
  398.                     GRVSULTR.386
  399.                 EndCopyFiles
  400.             EndIf
  401.             ChangeDirectoryTo [Dir3]
  402.             Run [Dir3]\WINSETUP.EXE Swapout NoPrompt
  403.         EndIf
  404.       EndIf
  405.       ChangeDirectoryTo [Dir3]
  406.       DeleteFiles from [BootDrive]:\ISFYZQVO.TWJ Quietly
  407.         *.*
  408.       EndDeleteFiles
  409.       DeleteDirectory [BootDrive]:\ISFYZQVO.TWJ Quietly
  410.     EndIf
  411. EndProcedure
  412.  
  413. ;;======================================
  414. ;; Author:   John Smith
  415. ;; Date:     04/07/93
  416. ;; Purpose:  Check to see if we can do a Windows Auto Install
  417. ;;======================================
  418. Procedure CheckWindows
  419. ;;-----------------
  420. ;; Double Check Windows Setup
  421. ;;-----------------
  422. [Point3]
  423. ;;  -----------------
  424. ;;    If We Couldn't Find the Users Windows Prompt Them
  425. ;;  -----------------
  426.     If [Dir1] = Blankstring
  427.         Beep
  428.         Dialog [String6] WhiteOnRed @xy(Center,Center) UseHeader "No Microsoft Windows Found" 60
  429.             UltraSound install could not find your Microsoft Windows
  430.             directory.  Please enter in the full path, including drive
  431.             letter of the Windows directory which contains WIN.INI.
  432.             Press return to skip the Windows install at this time.
  433.         EndDialog
  434.  
  435.         [Dir1] := [String6]
  436.  
  437.         If [Dir1] = Blankstring
  438.             PopUp Skipping automated Windows install.
  439.             [WinSetup] := NoCharacter
  440.             Goto [Point5]
  441.         EndIf
  442.  
  443.         If FileExists [Dir1]\WIN.INI
  444.         Else
  445.             PopUp Unable to locate WIN.INI in [Dir1].  Please try again.
  446.             [Dir1] := [WindowsDirectory]
  447.         EndIf
  448.         Goto [Point3]
  449.     EndIf
  450. ;;  -----------------
  451. ;;    Can't Run Windows in Enhanced Mode without Memory Manager
  452. ;;  -----------------
  453.     If XMSMemoryAvailable = 0
  454.         Beep
  455.         Dialog WhiteOnRed @xy(Center,Center) UseHeader "No Memory Manager Found"
  456.             UltraSound install could not find your memory manager.
  457.             A memory manager (i.e. HIMEM.SYS) is required for the Windows
  458.             installation.  Your UltraSound Windows installation can not be
  459.             completed until you install a memory manager in your CONFIG.SYS.
  460.             You may refer to your DOS or Windows manual on how to accomplish
  461.             this.  UltraSound install will continue to copy the necessary
  462.             files to your hard drive but will not run the Windows install.
  463.             To run the Windows install at a later date simply type WINSETUP
  464.             from your UltraSound directory.
  465.         EndDialog
  466.         [WinSetup] := NoCharacter
  467.     EndIf
  468. ;;  -----------------
  469. ;;    Can't Run Windows in Enhanced Mode without a 386SX
  470. ;;  -----------------
  471.     If 80286
  472.         Beep
  473.         Dialog WhiteOnRed
  474.             The UltraSound Microsoft Windows drivers will only work in
  475.             386 Enhanced mode.  This mode is not available on 286 based
  476.             computers.  We will skip your Windows install.
  477.         EndDialog
  478.         [WinSetup] := NoCharacter
  479.         [InstWIN]  := NoCharacter
  480.         Goto [Point5]
  481.     EndIf
  482. ;;  -----------------
  483. ;;    Can't Run Windows Install if FILES are less than 20
  484. ;;  -----------------
  485.     NoSysFileConfirmation
  486.     ExamineTextFile [BootDrive]:\CONFIG.SYS
  487.       [Number4] := SettingFor FILES
  488.     ForgetTextFile
  489.  
  490.     If [Number4] < [Number1]
  491.         Dialog [YesOrNo3] WhiteOnRed @xy(Center,Center)
  492.           Your computer does not have enough file handles (FILES) for
  493.           the Windows installation.  The minimum required is 20.  Would you
  494.           like us to make the following change for you in your CONFIG.SYS?
  495.           .cFILES = 20
  496.         EndDialog
  497.  
  498.         If [YesOrNo3] = Y
  499.             ModifyConfigSys Quietly
  500.                 SetFilesToAtLeast [Number1]
  501.             EndModifyConfigSys
  502.             Dialog PressAnyKey WhiteOnRed @xy(Center,Center)
  503.                 Modifications complete.  For these changes to take
  504.                 affect you will need to reboot your computer.  If
  505.                 you would like to continue without the automated
  506.                 Windows install and do it later simply press any
  507.                 key to continue.  Otherwise, reboot your computer
  508.                 now and restart the installation.
  509.             EndDialog
  510.             [WinSetup] := NoCharacter
  511.         Else
  512.             Dialog PressAnyKey WhiteOnRed @xy(Center,Center)
  513.                 UltraSound install will continue to copy the necessary
  514.                 files to your hard drive but will not run the Windows install.
  515.                 To run the Windows install at a later date simply add the
  516.                 following line to your CONFIG.SYS and then select WINDOWS
  517.                 SETUP in the UltraSound install.
  518.                 .cFILES = 20
  519.             EndDialog
  520.             [WinSetup] := NoCharacter
  521.         EndIf
  522.     EndIf
  523. ;;  -----------------
  524. ;;    Make Sure the user isn't Running a Windows Shell other than PROGMAN.EXE
  525. ;;  -----------------
  526.     ExamineTextFile [Dir1]\SYSTEM.INI
  527.         [String5] := LineWith (SHELL,=,)
  528.     ForgetTextFile
  529.  
  530.     If [String5] = shell=PROGMAN.EXE
  531.     Else
  532.         Beep
  533.         Dialog WhiteOnRed @xy(Center,Center) UseHeader "Windows Shell Detected"
  534.             UltraSound install detected a shell program other than PROGRAM
  535.             MANAGER in your Windows installation.  This MAY cause problems
  536.             during the automated Windows install.  If you expierence problems
  537.             with this simply replace the line in your SYSTEM.INI file that
  538.             says "[String5]" with "shell=PROGMAN.EXE". You may run the
  539.             automated Windows install at a later date by simply typing
  540.             WINSETUP from your UltraSound directory, or read the README file
  541.             on how to manually install the necessary drivers.
  542.         EndDialog
  543.     EndIf
  544. [Point5]
  545. EndProcedure
  546.  
  547. ;;======================================
  548. ;; Author:   John Smith
  549. ;; Date:     04/07/93
  550. ;; Purpose:  Determine Where to Copy Files then do It
  551. ;;======================================
  552. Procedure CopyQueFiles
  553. ;;-----------------
  554. ;; Now that we know what we are to copy, lets figure out where to put it all
  555. ;;-----------------
  556.     [Number3] := QueSize                             ;; How Much to Copy?
  557.     If [Number3] > 0
  558.  
  559.         If [SETGUS] = YesCharacter                   ;; If the User Installs ALL Software
  560.             If [InstALL] = YesCharacter              ;;  but we first have to determine where
  561.                 QueAllFiles                          ;;  they want to install ALL the software
  562.                 [Number3] := QueSize                 ;;  Only have install it prompt them
  563.             EndIf                                    ;;  once for where they want to install
  564.                                                      ;;  the stuff.
  565.             Do DetermineWhere
  566.  
  567.             UnQueAllFiles
  568.             QueFileGroup 1
  569.             [Number3] := QueSize
  570.  
  571.             [SETGUS] := NoCharacter
  572.  
  573.         Else
  574.             If [Flag1] = NoCharacter                 ;; Don't determine install where on the
  575.                 Do DetermineWhere                    ;;  second pass for install all
  576.             EndIf
  577.         EndIf
  578.  
  579.         SetReplacementInquiry off
  580.  
  581.         ;;-----------------
  582.         ;; Copy README Stuff if Not already there
  583.         ;;-----------------
  584.         If FileExists [InstallationDirectory]\README
  585.             If [YesorNo5] = YesCharacter
  586.                 CopyFiles From [InstallFromDrive]:\ To [InstallationDirectory] Quietly
  587.                       GV.EXE
  588.                       README
  589.                       README.BAT
  590.                 EndCopyFiles
  591.             EndIf
  592.         Else
  593.             CopyFiles From [InstallFromDrive]:\ To [InstallationDirectory] Quietly
  594.                   GV.EXE
  595.                   README
  596.                   README.BAT
  597.             EndCopyFiles
  598.         EndIf
  599.  
  600.         [Dir3] := [InstallationDirectory]
  601.  
  602.         ;;-----------------
  603.         ;; Copy QUED Files
  604.         ;;-----------------
  605.  
  606.  
  607.         GetQuedFiles
  608.  
  609.         Do TitleScreen
  610.     EndIf
  611.  
  612.     If [InstWIN] = YesCharacter
  613.         CopyFiles From [InstallationDirectory]\WINDOWS To [InstallationDirectory] Quietly
  614.             ULTRASND.INI
  615.         EndCopyFiles
  616.     EndIf
  617.  
  618.     ;;-----------------
  619.     ;; If DOS5+ then Load SBOS Hi
  620.     ;;-----------------
  621.     If [InstSBOS] = YesCharacter
  622.         If OSVersion < 5.0
  623.           CopyFiles From [InstallationDirectory]\SBOS To [InstallationDirectory] Quietly
  624.                 LOADSBOS.EXE
  625.                 SBOSDRV.EXE
  626.                 SBOSLOW.BAT as SBOS.BAT
  627.           EndCopyFiles
  628.         Else
  629.           CopyFiles From [InstallationDirectory]\SBOS To [InstallationDirectory] Quietly
  630.                 LOADSBOS.EXE
  631.                 SBOSDRV.EXE
  632.                 SBOSHI.BAT as SBOS.BAT
  633.           EndCopyFiles
  634.         EndIf
  635.         DeleteFiles from [InstallationDirectory]\SBOS Quietly
  636.             SBOSHI.BAT
  637.             SBOSLOW.BAT
  638.         EndDeleteFiles
  639.     EndIf
  640.  
  641.     [Flag1] := NoCharacter
  642. EndProcedure
  643.  
  644. ;;======================================
  645. ;; Author:   John Smith
  646. ;; Date:     04/09/93
  647. ;; Purpose:  Figure Out Destination
  648. ;;======================================
  649. Procedure DetermineWhere
  650.     [String7] := EnvironmentStringFor ULTRADIR
  651.     If [String7] = BlankString                       ;; Does it Exist?
  652.         DetermineInstallationDrive [Number3] RequireFixed ConfirmRAM AllowNetwork
  653.     EndIf
  654.  
  655.     ClearScreen
  656.     Do TitleScreen
  657.  
  658.     [String7] := EnvironmentStringFor ULTRADIR
  659.     If [String7] = BlankString                       ;; Does it Exist?
  660.         TextBox WhiteOnBlue @xy(Center,19)
  661.                 NOTE: The default directory is recommended so
  662.                 that future upgrades are easier to perform.
  663.         EndTextBox
  664.     Else
  665.         TextBox WhiteOnBlue @xy(Center,19)
  666.             NOTE: It appears that you are upgrading from a previous version of
  667.             the UltraSound software.  It is recommended that you install this
  668.             upgrade over top of your older software.
  669.         EndTextBox
  670.     EndIf
  671.  
  672.     DO DetermineULTRADIR
  673.  
  674.     [Point4]
  675.     SetBottomLineAttrTo YellowOnRed
  676.     SetBottomLineTo     "              Press RETURN to Accept and Proceed with Installation              "
  677.  
  678.     DetermineInstallationDirectory [String3] [Number3] NoCreate
  679.  
  680.     [String3] := [InstallationDirectory]
  681.  
  682.     ClearScreen
  683.     DO TitleScreen
  684.  
  685.     If [YesorNo5] = NoCharacter
  686.         ;; If directory exists inform user files will be overwritten
  687.         If DirectoryExists [InstallationDirectory]
  688.             Dialog [YesOrNo4] WhiteOnRed @xy(Center,Center)
  689.                 This directory already exists.  If you continue files may
  690.                 be overwritten.  Would you like to continue?
  691.             EndDialog
  692.             If [YesOrNo4] = N
  693.                 GoTo [Point4]
  694.             EndIf
  695.         EndIf
  696.     EndIf
  697.  
  698. EndProcedure
  699.  
  700. ;;======================================
  701. ;; Author:   John Smith
  702. ;; Date:     04/07/93
  703. ;; Purpose:  Restore a Single File
  704. ;;======================================
  705. Procedure GetUserFile
  706.   Dialog [String1] YellowOnRed @xy(5,7) 12
  707.       Which file(s) do you wish to restore? (Wild Cards are accepted)
  708.   EndDialog
  709.   If [String1] = BlankString
  710.       Goto [Point6]
  711.   Endif
  712.   If [String1] Contains \
  713.       PopUp Please enter the file name with no path.
  714.       Goto [Point6]
  715.   EndIf
  716.   If FileIsInLibrary [String1]
  717.   else
  718.      PopUp That file name is not available.  Please try again.
  719.      Goto [Point6]
  720.   EndIf
  721.   QueFiles
  722.       [String1]
  723.   EndQueFiles
  724.   [Number3] := QueSize
  725.   Do DetermineWhere
  726.   GetQuedFiles
  727.   [Point6]
  728. EndProcedure
  729.  
  730. ;;======================================
  731. ;; Author:   John Smith
  732. ;; Date:     04/09/93
  733. ;; Purpose:  What to Show User if they Select HELP
  734. ;;======================================
  735. Procedure ShowHelp
  736.   If [YesorNo2] = YesCharacter
  737.       Dialog PressAnyKey YellowOnRed @xy(Center,Center)
  738.           Should you experience any difficulties with the UltraSound
  739.           Install you may contact Gravis customer service at:
  740.  
  741.           Advanced Gravis
  742.           3750 North Fraser Way, #101
  743.           Burnaby, BC, Canada
  744.           V5J 5E9
  745.  
  746.           Technical Support (9am-4pm PST)......1-604-431-1807
  747.           Bulletin Board System (V32bis N81)...1-604-431-5927
  748.           Fax..................................1-604-451-9358
  749.  
  750.           NOTE: These calls are to Canada!! We strongly recommend
  751.           you read the README file and the MANUAL before calling
  752.           to save time and money.
  753.       EndDialog
  754.   EndIf
  755. EndProcedure
  756.  
  757. ;;======================================
  758. ;; Author:   John Smith
  759. ;; Date:     04/07/93
  760. ;; Purpose:  View README file
  761. ;;======================================
  762. Procedure GetReadme  ;; To read the Readme file for latest updated info
  763.     If [YesorNo2] = YesCharacter
  764.         [Dir6] := CurrentDirectory
  765.         ChangeDirectoryTo [Dir3]
  766.         Run GV README NoPrompt
  767.         ChangeDirectoryTo [Dir6]
  768.     EndIf
  769. EndProcedure
  770.  
  771. ;;======================================
  772. ;; Author:   John Smith
  773. ;; Date:     04/09/93
  774. ;; Purpose:  Display Exit Message
  775. ;;======================================
  776. Procedure Bye
  777.   SoLong
  778. EndProcedure
  779.  
  780. ;;======================================
  781. ;; Author:   John Smith
  782. ;; Date:     04/09/93
  783. ;; Purpose:  Determine UltraDIR Location
  784. ;;======================================
  785. Procedure DetermineULTRADIR
  786.     [String3] := EnvironmentStringFor ULTRADIR
  787.     If [String3] = BlankString                       ;; Does it Exist?
  788.       [String3] := InstallationDrive:\ULTRASND
  789.     EndIf
  790. EndProcedure
  791.  
  792. ;;======================================
  793. ;; Author:   John Smith
  794. ;; Date:     04/07/93
  795. ;; Purpose:  Show User System Summary
  796. ;;======================================
  797. Procedure ShowSystemSummary  ;; System summary - change with care.
  798.   If [YesorNo2] = YesCharacter
  799.       DO PrepareSystemReport
  800.  
  801.       Dialog  PressAnyKey WhiteOnBLue @xy(Center,Center)
  802.         .cSystem Summary
  803.         .c[String8]                                  ;; Notes whether any incompatibilities were found
  804.  
  805.         Operating System:     [OSVersionSummary]
  806.         CPU Type:             [CPUTypeSummary]
  807.         Display Adapter:      [DisplayAdapterSummary]
  808.         Math Coprocessor:     [MathCoprocessorStatus]
  809.         Network:              [NetworkActive]
  810.         Main Memory Present:  [SystemMemorySummary]
  811.         XMS Memory Present:   ExtendedMemoryPresentK
  812.         XMS Memory Available: XMSMemoryAvailableK
  813.         EMS Version:          [EMSPresent]
  814.  
  815.         Customer Support Number 1-604-431-1807
  816.       EndDialog
  817.   EndIf
  818. EndProcedure
  819.  
  820. ;;======================================
  821. ;; Author:   Forte
  822. ;; Date:     03/xx/93
  823. ;; Purpose:  Display System Summary to User
  824. ;; Revision: Edit Display Layout - JRS
  825. ;;======================================
  826. Procedure PrepareSystemReport
  827.   [InsufficientSystem] := NoCharacter
  828.  
  829.   If OSVersion < [MinimumOSVersion]
  830.       [OSVersionSummary]   := OSVersion (Requires [MinimumOSVersion])
  831.       [InsufficientSystem] := YesCharacter
  832.   else
  833.       [OSVersionSummary]   := OSVersion
  834.   EndIf
  835.  
  836.   If MainMemory < [MinimumSystemMemoryRequiredPresent]
  837.     [SystemMemorySummary] := MainMemoryK (Requires [MinimumSystemMemoryRequiredPresent]K)
  838.     [InsufficientSystem]  := YesCharacter
  839.   else
  840.     [SystemMemorySummary] := MainMemoryK
  841.   EndIf
  842.  
  843.   If MathCoprocessorPresent
  844.       [MathCoprocessorStatus] := Present
  845.   Else
  846.       [MathCoprocessorStatus] := Not Present
  847.   EndIf
  848.  
  849.   If EMSVersion = 0
  850.      [EMSPresent] := No EMS Present
  851.   Else
  852.      [EMSPresent] := EMSVersion
  853.   EndIf
  854.  
  855. ;;-----------------
  856. ;; Determine CPU Type
  857. ;;-----------------
  858.   If 808X
  859.     If [Allow808X] = YesCharacter
  860.         [CPUTypeSummary] := 808x
  861.     else
  862.         [CPUTypeSummary] := 808x (Not compatible with [ProductName])
  863.         [InsufficientSystem] := YesCharacter
  864.     EndIf
  865.   EndIf
  866.   If 80286
  867.       [CPUTypeSummary] := 80286
  868.   EndIf
  869.   If 80386
  870.       [CPUTypeSummary] := 80386
  871.   EndIf
  872.   If 80486
  873.       [CPUTypeSummary] := 80486
  874.   EndIf
  875.  
  876.   If [CPUTypeSummary] = BlankString
  877.       [CPUTypeSummary] := Unknown
  878.   EndIf
  879.  
  880.   If MicroChannel
  881.       [CPUTypeSummary] := [CPUTypeSummary] (MicroChannel)
  882.   else
  883.       [CPUTypeSummary] := [CPUTypeSummary] (ISA/EISA)
  884.   EndIf
  885.  
  886. ;;-----------------
  887. ;; Determine Video Type
  888. ;;-----------------
  889.   If CGA
  890.     If [AllowCGA] = YesCharacter
  891.         [DisplayAdapterSummary] := CGA
  892.     else
  893.         [DisplayAdapterSummary] := CGA (Not compatible with [ProductName])
  894.         [InsufficientSystem] := YesCharacter
  895.     EndIf
  896.   EndIf
  897.   If MDA
  898.     If [AllowMDA] = YesCharacter
  899.         [DisplayAdapterSummary] := MDA
  900.     else
  901.         [DisplayAdapterSummary] := MDA (Not compatible with [ProductName])
  902.         [InsufficientSystem] := YesCharacter
  903.     EndIf
  904.   EndIf
  905.   If EGA
  906.       [DisplayAdapterSummary] := EGA
  907.   EndIf
  908.   If VGA
  909.       [DisplayAdapterSummary] := VGA
  910.   EndIf
  911.   If HGC
  912.       [DisplayAdapterSummary] := HGC
  913.   EndIf
  914.   If HGCPlus
  915.       [DisplayAdapterSummary] := HGC Plus
  916.   EndIf
  917.  
  918. ;;-----------------
  919. ;; Determine Other Aspects
  920. ;;-----------------
  921.   If Network
  922.       [NetworkActive] := Network Active
  923.   else
  924.       [NetworkActive] := No Network Active
  925.   EndIf
  926.   If NovellLoaded
  927.       [NetworkActive] := Novell [NetworkActive]
  928.   EndIf
  929.   If [InstallationDirectory] <> BlankString
  930.       [InstallationDriveSummary] := InstallationDrive (FreeSpaceOnDrive InstallationDrive bytes free)
  931.   else
  932.       [InstallationDriveSummary] := (Not Selected)
  933.   EndIf
  934.   If [InsufficientSystem] = YesCharacter
  935.     [String8] := Incompatibilities with [ProductName] Detected
  936.   EndIf
  937.   [CompatibilityNoticeGiven] := YesCharacter
  938. EndProcedure
  939.  
  940. ;;======================================
  941. ;; Author:   John Smith
  942. ;; Date:     04/07/93
  943. ;; Purpose:  Do Advanced User Install
  944. ;;======================================
  945. Procedure AdvancedInstall
  946.     [String2] := EnvironmentStringFor ULTRASND
  947.     If [String2] = BlankString                       ;; Does it Exist?
  948.         Dialog PressAnyKey WhiteOnCyan
  949.             It appears that you have not run the UltraSound setup
  950.             program, SETGUS.  For your card to operate correctly you
  951.             must run this first.  Select "RUN ULTRASOUND SETUP" from
  952.             the Advanced Install to cofigure your card.  If you do
  953.             not the UltraSound software may not operate correctly.
  954.         EndDialog
  955.     EndIf
  956.     ClearScreen
  957.     :ADVANCED
  958.  
  959.     [GUSSetup]   := NoCharacter                      ;; Init All Vars to NO
  960.     [WinSetup]   := NoCharacter
  961.     [InstSBOS]   := NoCharacter
  962.     [InstDEMO]   := NoCharacter
  963.     [InstUTIL]   := NoCharacter
  964.     [InstWIN]    := NoCharacter
  965.     [InstALL]    := NoCharacter
  966.     [InstGUSMOD] := NoCharacter
  967.     [InstPAT]    := NoCharacter
  968.     [YesorNo5]   := NoCharacter
  969.  
  970.     Do TitleScreen
  971.  
  972.     TextBox WhiteOnBlue @xy(Center,3)
  973.         Do not forget to mail in your UltraSound registration card.
  974.     EndTextBox
  975.  
  976.     GetMenuChoice WhiteOnLightBlue @xy(Center,9) Highlight 1 UseHeader "Advanced Installation Menu"
  977.     Restore File(s)
  978.                    ; Restore a single or group of files
  979.     Run UltraSound Setup
  980.                    ; Configure and diagnose UltraSound card.
  981.     Install General MIDI Patch Set
  982.                    ; General MIDI Patch Library
  983.     Install UltraSound Utilities and Demos
  984.                    ; Utilities and Demos
  985.     Install SBOS
  986.                    ; Sound Blaster and Adlib Emulator
  987.     Return to Main Menu
  988.     EndGetMenuChoice
  989.  
  990.     InCase Choice is
  991.             =1: Do GetUserFile
  992.             =2: [GUSSetup] := YesCharacter
  993.             =3: UnQueAllFiles
  994.                 QueFileGroup 5
  995.                 [InstPAT]    := YesCharacter
  996.                 Goto [Point8]
  997.             =4: UnQueAllFiles
  998.                 If FileExists [InstallationDirectory]\ULTRASND.INI
  999.                     Dialog PressAnyKey WhiteOnCyan
  1000.                         You must install the General MIDI Patch library
  1001.                         for the MIDI demos to operate correctly.  Select
  1002.                         "INSTALL GENERAL MIDI PATCH SET" to install the patchs.
  1003.                     EndDialog
  1004.                 EndIf
  1005.                 [InstDEMO]   := NoCharacter
  1006.                 [InstUTIL]   := NoCharacter
  1007.                 [InstGUSMOD] := NoCharacter
  1008.                 QueFileGroup 1 2 3 6
  1009.                 Goto [Point8]
  1010.             =5: UnQueAllFiles
  1011.                 If [String2] = BlankString                       ;; Does it Exist?
  1012.                     Dialog PressAnyKey WhiteOnCyan
  1013.                         You must run the UltraSound setup program,
  1014.                         SETGUS for SBOS to operate correctly.  Select
  1015.                         "RUN ULTRASOUND SETUP" to run SETGUS.
  1016.                     EndDialog
  1017.                 EndIf
  1018.                 [InstSBOS]   := NoCharacter
  1019.                 QueFileGroup 3
  1020.                 Goto [Point8]
  1021.             =6: Exit
  1022.     EndInCase
  1023.  
  1024.     [Point8]
  1025.  
  1026.     ClearScreen
  1027.     Do TitleScreen
  1028.  
  1029.     If [GUSSetup] = YesCharacter
  1030.         Do CheckGUSSetup                             ;; Just run GUS Setup
  1031.     Else
  1032.         Do CopyQueFiles
  1033.     EndIf
  1034.  
  1035.     Goto ADVANCED
  1036. EndProcedure
  1037.  
  1038. ;;======================================
  1039. ;; Author:   John Smith
  1040. ;; Date:     04/27/93
  1041. ;; Purpose:  Modify Autoexec Stuff
  1042. ;;======================================
  1043. Procedure ModifyStuff
  1044.     ;;-----------------
  1045.     ;; Run SETUP, WINGUS and Modify CONFIG.SYS & AUTOEXEC.BAT
  1046.     ;;-----------------
  1047.  
  1048.     NoSysFileConfirmation
  1049.     ;;Add Path to AutoExec if Necessary
  1050.     If [InstGUSMOD] = YesCharacter
  1051.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT
  1052.           [String4] := LineWith (SET,GUSMOD,)
  1053.         ForgetTextFile
  1054.         If [String4] = BlankString                       ;; Does it Exist?
  1055.             [String4] := [InstallationDirectory]\MOD     ;; If Not Create It
  1056.             ModifyAutoexecBat Quietly
  1057.                 AddPathComponent [InstallationDirectory] at Beginning
  1058.                 InsertAtLine 2 "SET GUSMOD=[String4]"
  1059.             EndModifyAutoexecBat
  1060.         Else                                             ;; If It Did.  Don't add another
  1061.             ModifyAutoexecBat Quietly
  1062.                 AddPathComponent [InstallationDirectory] at Beginning
  1063.             EndModifyAutoexecBat
  1064.         EndIf
  1065.     Else
  1066.         ModifyAutoexecBat Quietly
  1067.             AddPathComponent [InstallationDirectory] at Beginning
  1068.         EndModifyAutoexecBat
  1069.     EndIf
  1070.  
  1071.     ;;-----------------
  1072.     ;; This part was a REAL Pain.  If setgus can't find itself in the users
  1073.     ;; path statement it insists on placing itself at the end of the users
  1074.     ;; autoexec.bat instead of at the top.  If this is the case this 60 lines
  1075.     ;; will move those lines installed by SETGUS to the top of the autoexec.
  1076.     ;;-----------------
  1077.     [String3] := EnvironmentStringFor ULTRADIR
  1078.     If [String3] = BlankString                            ;; Are his/her enviros already set?
  1079.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT Quietly
  1080.             [Number7] := LineNumberWith (SET,BLASTER,)   ;; Move Blaster
  1081.             [String8] := Line [Number7]
  1082.         EndModifyTextFile
  1083.         If [Number7] = 0
  1084.         Else
  1085.             ModifyAutoexecBat Quietly
  1086.                 DeleteLine [Number7]
  1087.                 InsertAtLine 2 [String8]
  1088.             EndModifyAutoexecBat
  1089.         EndIf
  1090.  
  1091.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT Quietly
  1092.             [Number7] := LineNumberWith (SET,ULTRADIR,)  ;; Move UltraDIR
  1093.             [String8] := Line [Number7]
  1094.         EndModifyTextFile
  1095.         If [Number7] = 0
  1096.         Else
  1097.             ModifyAutoexecBat Quietly
  1098.                 DeleteLine [Number7]
  1099.                 InsertAtLine 2 [String8]
  1100.             EndModifyAutoexecBat
  1101.         EndIf
  1102.  
  1103.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT Quietly
  1104.             [Number7] := LineNumberWith (CALL,SBOS,)     ;; Move CALL SBOS
  1105.             [String8] := Line [Number7]
  1106.         EndModifyTextFile
  1107.         If [Number7] = 0
  1108.         Else
  1109.             ModifyAutoexecBat Quietly
  1110.                 DeleteLine [Number7]
  1111.                 InsertAtLine 2 [String8]
  1112.             EndModifyAutoexecBat
  1113.         EndIf
  1114.  
  1115.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT Quietly
  1116.             [Number7] := LineNumberWith (ULTRINIT,EXE,) IncludeDisabled  ;; Move UltraINIT
  1117.             [String8] := Line [Number7]
  1118.         EndModifyTextFile
  1119.         If [Number7] = 0
  1120.         Else
  1121.             ModifyAutoexecBat Quietly
  1122.                 DeleteLine [Number7]
  1123.                 InsertAtLine 2 [String8]
  1124.             EndModifyAutoexecBat
  1125.         EndIf
  1126.  
  1127.         ExamineTextFile [BootDrive]:\AUTOEXEC.BAT Quietly
  1128.             [Number7] := LineNumberWith (SET,ULTRASND,) ;; Move ULTRASND
  1129.             [String8] := Line [Number7]
  1130.         EndModifyTextFile
  1131.         If [Number7] = 0
  1132.         Else
  1133.             ModifyAutoexecBat Quietly
  1134.                 DeleteLine [Number7]
  1135.                 InsertAtLine 2 [String8]
  1136.             EndModifyAutoexecBat
  1137.         EndIf
  1138.     EndIf
  1139. EndProcedure
  1140.  
  1141. ;;======================================
  1142. ;; Author:   John Smith
  1143. ;; Date:     04/27/93
  1144. ;; Purpose:  Put Title Bars on the Screen
  1145. ;;======================================
  1146. Procedure TitleScreen
  1147.     SetTopLineAttrTo YellowOnRed
  1148.     If [YesorNo6] = YesCharacter
  1149.         SetTopLineTo "                   Gravis UltraSound (GUS) Installation - V2.06                 "
  1150.     Else
  1151.         SetTopLineTo "                   Gravis UltraSound (GUS) Installation - V2.06L                "
  1152.     EndIf
  1153.  
  1154.     TextBox WhiteOnRed @xy(Center,19)
  1155.     .cUltraSound by
  1156.     .cAdvanced Gravis Computer Technology Ltd.
  1157.     .cBurnaby, BC, Canada
  1158.     EndTextBox
  1159.  
  1160.     SetBottomLineAttrTo WhiteOnRed
  1161.     If [YesorNo2] = NoCharacter
  1162.         SetBottomLineTo     "                                                                   CTRL+X=Exit  "
  1163.     Else
  1164.         SetBottomLineTo     "  F1=Help  F2=View ReadMe  F3=System Summary                       CTRL+X=Exit  "
  1165.     EndIf
  1166.  
  1167. EndProcedure
  1168.  
  1169. ;;======================================
  1170. ;; Author:   John Smith
  1171. ;; Date:     05/05/93
  1172. ;; Purpose:  Throw up a dialog box welcoming user to Install
  1173. ;;======================================
  1174. Procedure OpeningScreen
  1175.     ClearScreen
  1176.  
  1177.     SetTopLineAttrTo YellowOnRed
  1178.     If [YesorNo6] = YesCharacter
  1179.         SetTopLineTo "                   Gravis UltraSound (GUS) Installation - V2.06                 "
  1180.     Else
  1181.         SetTopLineTo "                   Gravis UltraSound (GUS) Installation - V2.06L                "
  1182.     EndIf
  1183.  
  1184. TextBox WhiteOnRed @xy(7,4)
  1185. .cManufactured by
  1186. .cA d v a n c e d
  1187. " ▄▄▄ ▄▄▄▄   ▄▄▄  ▄▄   ▄▄ ▄  ▄▄▄▄ "
  1188. "▐ ▄▄ ▐   ▌ ▐█ █▌ ▐█   █▌ █ ▐▄▄▄▄ "
  1189. "▐   ▌▐▀█▀ ▐█   █▌ ▐█ █▌  █      ▌"
  1190. " ▀▀▀ ▀  ▀ ▀     ▀  ▀▀▀   ▀  ▀▀▀▀ "
  1191. .cBurnaby, BC, Canada
  1192. EndTextBox
  1193.  
  1194. TextBox WhiteOnRed @xy(42,15)
  1195. .cDesigned by
  1196. .cFORTE Technologies Inc.
  1197. .cRochester, NY, USA
  1198. EndTextBox
  1199.  
  1200. TextBox WhiteOnRed @xy(5,20)
  1201.     ________________________
  1202. EndTextBox
  1203.  
  1204. GoToXY @xy(7,21)
  1205. PressAnyKey
  1206.  
  1207. EndProcedure
  1208.  
  1209. EndScript
  1210.